home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 January
/
1994-01b.d64
/
fall letters1.fb
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
185b
|
7 lines
10 print"[147]"
20 m$="* * * falling letters * * *"
30 ln=05
40 b=len(m$):ct=(40-b)/2-1:for a=1tob:x$=mid$(m$,a,1):printchr$(19)
50 if x$<>" "thenfor t=1to ln-2:printtab(ct+a)x$chr$(145):printtab(ct+a)" "
60 next:printtab(ct+a)x$:next